Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/vbdb/dispdbin.frm

Text File | 1995-09-06 | 5KB | 183 lines

VERSION 2.00
Begin Form DispDBInfo
   BorderStyle     =   3  'Fixed Double
   ClientHeight    =   3585
   ClientLeft      =   2850
   ClientTop       =   1935
   ClientWidth     =   3480
   ControlBox      =   0   'False
   Height          =   3990
   Left            =   2790
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3585
   ScaleWidth      =   3480
   Top             =   1590
   Width           =   3600
   Begin CommandButton Command1
      Caption         =   "OK"
      Height          =   372
      Left            =   1200
      TabIndex        =   0
      Top             =   3120
      Width           =   1092
   End
   Begin TextBox Text1
      BackColor       =   &H00C0C0C0&
      Enabled         =   0   'False
      Height          =   612
      Left            =   -120
      TabIndex        =   13
      Top             =   3000
      Width           =   3612
   End
   Begin TextBox DBF_Type
      Height          =   372
      Left            =   1560
      TabIndex        =   12
      Top             =   2280
      Width           =   1092
   End
   Begin TextBox Memo_Ptr
      Height          =   372
      Left            =   1560
      TabIndex        =   11
      Top             =   1920
      Width           =   1092
   End
   Begin TextBox Record_Size
      Height          =   372
      Left            =   1560
      TabIndex        =   10
      Top             =   1560
      Width           =   1092
   End
   Begin TextBox Last_Update
      Height          =   372
      Left            =   1560
      TabIndex        =   9
      Top             =   1200
      Width           =   1092
   End
   Begin TextBox Field_Count
      Height          =   372
      Left            =   1560
      TabIndex        =   7
      Top             =   840
      Width           =   1092
   End
   Begin TextBox Record_count
      Height          =   372
      Left            =   1560
      TabIndex        =   8
      Top             =   480
      Width           =   1092
   End
   Begin Label Label7
      Alignment       =   1  'Right Justify
      Caption         =   "DBF type"
      Height          =   252
      Left            =   240
      TabIndex        =   4
      Top             =   2400
      Width           =   1212
   End
   Begin Label Label6
      Alignment       =   1  'Right Justify
      Caption         =   "Memo file"
      Height          =   252
      Left            =   240
      TabIndex        =   6
      Top             =   2040
      Width           =   1212
   End
   Begin Label Label5
      Alignment       =   1  'Right Justify
      Caption         =   "Record size"
      Height          =   252
      Left            =   240
      TabIndex        =   5
      Top             =   1680
      Width           =   1212
   End
   Begin Label Label3
      Alignment       =   1  'Right Justify
      Caption         =   "Last update"
      Height          =   252
      Left            =   240
      TabIndex        =   3
      Top             =   1320
      Width           =   1212
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Fields"
      Height          =   252
      Left            =   240
      TabIndex        =   2
      Top             =   960
      Width           =   1212
   End
   Begin Label label1
      Alignment       =   1  'Right Justify
      Caption         =   "Records"
      Height          =   252
      Left            =   240
      TabIndex        =   1
      Top             =   600
      Width           =   1212
   End
   Begin Label DatabaseName
      Alignment       =   2  'Center
      Caption         =   "dbf name"
      Height          =   252
      Left            =   0
      TabIndex        =   14
      Top             =   120
      Width           =   3492
   End
End
DefInt A-Z

Sub Command1_Click ()
    Unload DispDBInfo
End Sub

Sub Form_Load ()

    '
    'displays the database structure of a database
    '

    Screen.MousePointer = 11     'change mouse
    Load DispDBInfo                     'load the form
    LoadDisplay                         'load 0 DBF info into form
    DispDBInfo.Show                     'show form
    Screen.MousePointer = 0       'restore mouse

End Sub

Sub LoadDisplay ()

    '
    'Loads the DBDisplay form with all data from
    'header of database Handle.
    '

    StatusDBF DBFHandle, FileName$, DBFType$, DBTPtr, NumRecs&, NumFlds, RecLen, UpDate$, Status

    DispDBInfo.Caption = "Database detail"
    DispDBInfo.DatabaseName.Caption = FileName$
    DispDBInfo.Record_Count.Text = LTrim$(Str$(NumRecs&))
    DispDBInfo.Field_Count.Text = LTrim$(Str$(NumFlds))
    DispDBInfo.Last_Update.Text = UpDate$
    DispDBInfo.DBF_Type.Text = DBFType$
    DispDBInfo.Record_Size.Text = LTrim$(Str$(RecLen))
    If DBTPtr Then YN$ = "yes" Else YN$ = "no"
    DispDBInfo.Memo_Ptr.Text = YN$

End Sub